home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
ac174v13.zip
/
R-PCCHAT.MRG
< prev
next >
Wrap
Text File
|
1992-10-01
|
3KB
|
58 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
* RBBS-PC.BAS: Date 6-20-1992 Size 147219 bytes
* ANSIChat (c) 1992 by Richie Molinelli
* ------------[ Created 10-01-1992 20:24:31 ]------------
* REPLACING old line(s) by new
100 CLEAR,,ZSizeOfStack
CALL VarInit
* ------[ first line different ]------
ZANSITest = ZFalse ' CHAT174
IF ZErrCode > 0 THEN _
GOTO 31
OrigUpgradeSec = ZAutoUpgradeSec
OrigMainSec = ZMinLogonSec
CALL BreakFileName (ZOrigMsgFile$,Drive$,OrigMsgName$,ZWasY$,ZFalse)
IF OrigMsgName$ = "MESSAGES" THEN _
OrigMsgName$ = "MAIN" _
ELSE IF RIGHT$(OrigMsgName$,1) = "M" THEN _
OrigMsgName$ = LEFT$(OrigMsgName$,LEN(OrigMsgName$)-1)
ConfFileName$ = OrigMsgName$
OrigNewsFileName$ = ZWelcomeFileDrvPath$ + _
OrigMsgName$ + ".NWS"
ZNewsFileName$ = OrigNewsFileName$
IF ZNetMail$ <> "NONE" AND VAL(ZNetTime$) > 0 THEN _
ZLimitMinsPerSession = VAL(ZNetTime$)
IF ZNetMail$ <> "NONE" AND VAL(ZNetBaud$) > 0 THEN _
ZExpectActiveModem = ZTrue : _
IF NOT ZKeepInitBaud THEN _
ZModemInitBaud$ = ZNetBaud$
IF ZFossil THEN _
ZComPort = VAL(RIGHT$(ZComPort$,1)) - 1 : _
IF ZComPort < 0 THEN _
GOTO 108 _
ELSE CALL FOSinit(ZComPort,Result) : _
IF Result = -1 THEN _
ZSnoop = ZTrue : _
CALL PScrn("ERROR INITIALIZING FOSSIL") : _
GOTO 204
* REPLACING old line(s) by new
4765 CALL UpdtCalr ("Paged & chatted with Sysop",1)
* ------[ first line different ]------
ZPageStatus$ = ""
* REPLACING old line(s) by new
* ------[ first line different ]------
4770 IF (ZANSITest = ZTrue OR ZWasGR > 1) AND ZDosANSI THEN _ ' CHAT174
CALL SysopChat (2) _ ' CHAT174
ELSE _ ' CHAT174
CALL QuickTPut1 ("SysOp in! " + _ ' CHAT174
ZFirstName$ + ", this is " + _ ' CHAT174
ZSysopFullName$ + ", go ahead!") : _ ' CHAT174
CALL SysopChat (1) ' CHAT174
IF ZSubParm < 0 THEN _
GOTO 202
RETURN
'
' **** S - COMMAND FROM UTILITY MENU (STATISTICS) ***
'